1 KEY
10 DIM
100 DATA
101 DATA
102 DATA
103 DATA
104 DATA
105 DATA
106 DATA
107 DATA
108 DATA
109 DATA
110 DATA
111 DATA
112 DATA
113 DATA
114 DATA
115 DATA
116 DATA
117 DATA
118 DATA
119 DATA
120 DATA
121 DATA
122 DATA
123 DATA
124 DATA
125 DATA
126 DATA
127 DATA
128 DATA
129 DATA
130 DATA
131 DATA
132 DATA
133 DATA
134 DATA
135 DATA
136 DATA
137 DATA
138 DATA
139 DATA
140 DATA
141 DATA
142 DATA
143 DATA
144 DATA
145 DATA
146 DATA
147 DATA
148 DATA
149 DATA
150 DATA
151 DATA
152 DATA
153 DATA
20 ON ERROR
30 GET PALETTE
40 FOR
50 FOR
60 INC
70 NEXT
75 END
80 IF
90 RETURN